/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / ACORN-ST / ACRNET21 / !AcornetA_AppLib_pop

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f4 3e 70 6f | 70 0d 00 14 04 0d 00 1e |.....>po|p.......|
|00000010| 0f dd 20 a4 70 6f 70 5f | 69 6e 69 74 0d 00 28 06 |.. .pop_|init..(.|
|00000020| 3d 30 0d 00 32 04 0d 00 | 3c 24 dd 20 a4 70 6f 70 |=0..2...|<$. .pop|
|00000030| 5f 6d 65 74 68 6f 64 28 | 6d 65 74 68 6f 64 24 2c |_method(|method$,|
|00000040| 61 72 67 24 2c 6f 70 74 | 24 29 0d 00 46 10 c8 8e |arg$,opt|$)..F...|
|00000050| 20 6d 65 74 68 6f 64 24 | 20 ca 0d 00 50 23 c9 20 | method$| ...P#. |
|00000060| 22 63 6f 6e 66 69 67 22 | 3a 20 3d c3 a4 70 6f 70 |"config"|: =..pop|
|00000070| 5f 63 6f 6e 66 69 67 28 | 61 72 67 24 29 0d 00 5a |_config(|arg$)..Z|
|00000080| 10 c9 20 22 75 70 67 72 | 61 64 65 22 3a 0d 00 64 |.. "upgr|ade":..d|
|00000090| 23 20 20 f2 75 70 67 72 | 61 64 65 5f 70 72 65 63 |#  .upgr|ade_prec|
|000000a0| 69 6f 75 73 28 22 2e 6d | 61 69 6c 64 69 72 22 29 |ious(".m|aildir")|
|000000b0| 0d 00 6e 24 20 20 f2 75 | 70 67 72 61 64 65 5f 70 |..n$  .u|pgrade_p|
|000000c0| 72 65 63 69 6f 75 73 28 | 22 2e 73 65 74 74 69 6e |recious(|".settin|
|000000d0| 67 73 22 29 0d 00 78 21 | 20 20 f2 75 70 67 72 61 |gs")..x!|  .upgra|
|000000e0| 64 65 5f 70 72 65 63 69 | 6f 75 73 28 22 2e 55 73 |de_preci|ous(".Us|
|000000f0| 65 72 73 22 29 0d 00 82 | 21 20 20 3d a4 75 70 67 |ers")...|!  =.upg|
|00000100| 72 61 64 65 5f 63 6f 70 | 79 5f 64 69 72 28 61 72 |rade_cop|y_dir(ar|
|00000110| 67 24 2c 22 22 29 0d 00 | 96 05 cb 0d 00 a0 07 3d |g$,"")..|.......=|
|00000120| 22 22 0d 00 aa 04 0d 00 | b4 17 dd 20 a4 70 6f 70 |""......|... .pop|
|00000130| 5f 63 6f 6e 66 69 67 28 | 64 69 72 24 29 0d 00 be |_config(|dir$)...|
|00000140| 1a ea 20 6c 69 6e 65 25 | 2c 6c 69 6e 65 24 2c 73 |.. line%|,line$,s|
|00000150| 65 74 24 2c 75 73 24 0d | 00 c8 28 e7 20 c0 6e 65 |et$,us$.|..(. .ne|
|00000160| 74 5f 6d 61 69 6c 5f 70 | 72 6f 74 6f 63 6f 6c 24 |t_mail_p|rotocol$|
|00000170| 2c 33 29 3c 3e 22 50 4f | 50 22 20 8c 20 3d 31 0d |,3)<>"PO|P" . =1.|
|00000180| 00 d2 23 f2 61 63 6f 72 | 6e 65 74 5f 61 70 70 28 |..#.acor|net_app(|
|00000190| 22 6d 61 69 6c 22 2c 64 | 69 72 24 2c 22 50 4f 50 |"mail",d|ir$,"POP|
|000001a0| 22 29 0d 00 dc 1e ff 22 | 57 69 6d 70 54 61 73 6b |")....."|WimpTask|
|000001b0| 20 22 2b 64 69 72 24 2b | 22 2e 21 42 6f 6f 74 22 | "+dir$+|".!Boot"|
|000001c0| 0d 00 e6 19 73 65 74 24 | 3d 64 69 72 24 2b 22 2e |....set$|=dir$+".|
|000001d0| 73 65 74 74 69 6e 67 73 | 22 0d 00 f0 45 e7 20 ac |settings|"...E. .|
|000001e0| 20 a4 66 69 6c 65 5f 65 | 78 69 73 74 73 28 73 65 | .file_e|xists(se|
|000001f0| 74 24 29 20 f2 66 69 6c | 65 5f 63 6f 70 79 28 6e |t$) .fil|e_copy(n|
|00000200| 65 74 5f 72 65 73 70 61 | 74 68 24 2b 22 50 4f 50 |et_respa|th$+"POP|
|00000210| 73 65 74 74 69 6e 67 22 | 2c 73 65 74 24 29 0d 00 |setting"|,set$)..|
|00000220| fa 16 f2 75 70 64 61 74 | 65 5f 6f 70 65 6e 28 73 |...updat|e_open(s|
|00000230| 65 74 24 29 0d 01 04 0b | 6c 69 6e 65 25 3d 30 0d |et$)....|line%=0.|
|00000240| 01 0e 1a c8 95 20 a4 75 | 70 64 61 74 65 5f 72 65 |..... .u|pdate_re|
|00000250| 61 64 28 6c 69 6e 65 24 | 29 0d 01 18 0e 20 20 6c |ad(line$|)....  l|
|00000260| 69 6e 65 25 2b 3d 31 0d | 01 22 31 20 20 e7 20 6c |ine%+=1.|."1  . l|
|00000270| 69 6e 65 25 3d 33 20 6c | 69 6e 65 24 3d 22 22 22 |ine%=3 l|ine$="""|
|00000280| 22 2b 6e 65 74 5f 73 6d | 74 70 5f 67 61 74 65 77 |"+net_sm|tp_gatew|
|00000290| 61 79 24 2b 22 22 22 22 | 0d 01 2c 1a 20 20 f2 75 |ay$+""""|..,.  .u|
|000002a0| 70 64 61 74 65 5f 77 72 | 69 74 65 28 6c 69 6e 65 |pdate_wr|ite(line|
|000002b0| 24 29 0d 01 36 05 ce 0d | 01 40 11 f2 75 70 64 61 |$)..6...|.@..upda|
|000002c0| 74 65 5f 63 6c 6f 73 65 | 0d 01 4a 28 69 25 3d a4 |te_close|..J(i%=.|
|000002d0| 64 6c 67 5f 70 6f 6c 6c | 3a 20 e7 20 69 25 3c 3e |dlg_poll|: . i%<>|
|000002e0| 64 6c 67 5f 4e 55 4c 4c | 20 8c 20 3d 69 25 3d 31 |dlg_NULL| . =i%=1|
|000002f0| 0d 01 54 04 0d 01 5e 15 | 75 73 24 3d 64 69 72 24 |..T...^.|us$=dir$|
|00000300| 2b 22 2e 55 73 65 72 73 | 22 0d 01 68 20 61 64 64 |+".Users|"..h add|
|00000310| 75 73 65 72 3d 6e 65 74 | 5f 70 6f 70 5f 70 61 73 |user=net|_pop_pas|
|00000320| 73 77 6f 72 64 24 3e 22 | 22 0d 01 72 19 e7 20 a4 |sword$>"|"..r.. .|
|00000330| 66 69 6c 65 5f 65 78 69 | 73 74 73 28 75 73 24 29 |file_exi|sts(us$)|
|00000340| 20 8c 0d 01 7c 17 20 20 | f2 75 70 64 61 74 65 5f | ...|.  |.update_|
|00000350| 6f 70 65 6e 28 75 73 24 | 29 0d 01 86 1c 20 20 c8 |open(us$|)....  .|
|00000360| 95 20 a4 75 70 64 61 74 | 65 5f 72 65 61 64 28 6c |. .updat|e_read(l|
|00000370| 69 6e 65 24 29 0d 01 90 | 16 20 20 20 20 70 25 3d |ine$)...|.    p%=|
|00000380| a7 6c 69 6e 65 24 2c 22 | 20 22 29 0d 01 9a 35 20 |.line$,"| ")...5 |
|00000390| 20 20 20 f4 20 6f 6e 6c | 79 20 75 70 64 61 74 65 |   . onl|y update|
|000003a0| 20 65 78 69 73 74 69 6e | 67 20 75 73 65 72 20 69 | existin|g user i|
|000003b0| 66 20 70 61 73 73 77 6f | 72 64 20 67 69 76 65 6e |f passwo|rd given|
|000003c0| 0d 01 a4 46 20 20 20 20 | e7 20 c0 6c 69 6e 65 24 |...F    |. .line$|
|000003d0| 2c 70 25 2d 31 29 3c 3e | 6e 65 74 5f 6d 61 69 6e |,p%-1)<>|net_main|
|000003e0| 5f 75 73 65 72 24 20 84 | 20 ac 61 64 64 75 73 65 |_user$ .| .adduse|
|000003f0| 72 20 f2 75 70 64 61 74 | 65 5f 77 72 69 74 65 28 |r .updat|e_write(|
|00000400| 6c 69 6e 65 24 29 0d 01 | ae 07 20 20 ce 0d 01 b8 |line$)..|..  ....|
|00000410| 13 20 20 f2 75 70 64 61 | 74 65 5f 63 6c 6f 73 65 |.  .upda|te_close|
|00000420| 0d 01 c2 05 cd 0d 01 cc | 6d e7 20 61 64 64 75 73 |........|m. addus|
|00000430| 65 72 20 ff 22 57 69 6d | 70 54 61 73 6b 20 50 4f |er ."Wim|pTask PO|
|00000440| 50 61 64 6d 69 6e 20 61 | 64 64 75 73 65 72 20 2d |Padmin a|dduser -|
|00000450| 75 20 22 2b 6e 65 74 5f | 6d 61 69 6e 5f 75 73 65 |u "+net_|main_use|
|00000460| 72 24 2b 22 20 2d 68 20 | 22 2b 6e 65 74 5f 70 6f |r$+" -h |"+net_po|
|00000470| 70 5f 73 65 72 76 65 72 | 24 2b 22 20 2d 70 20 22 |p_server|$+" -p "|
|00000480| 2b 6e 65 74 5f 70 6f 70 | 5f 70 61 73 73 77 6f 72 |+net_pop|_passwor|
|00000490| 64 24 0d 01 d6 30 f2 6e | 65 77 73 62 61 73 65 5f |d$...0.n|ewsbase_|
|000004a0| 63 6d 64 28 22 74 72 61 | 6e 73 70 6f 72 74 20 73 |cmd("tra|nsport s|
|000004b0| 6f 75 72 63 65 20 6d 61 | 69 6c 20 70 6f 70 20 31 |ource ma|il pop 1|
|000004c0| 22 29 0d 01 e0 2f f2 6e | 65 77 73 62 61 73 65 5f |").../.n|ewsbase_|
|000004d0| 63 6d 64 28 22 74 72 61 | 6e 73 70 6f 72 74 20 72 |cmd("tra|nsport r|
|000004e0| 6f 75 74 65 20 6d 61 69 | 6c 20 70 6f 70 20 31 22 |oute mai|l pop 1"|
|000004f0| 29 0d 01 ea 2f f2 6e 65 | 77 73 62 61 73 65 5f 63 |).../.ne|wsbase_c|
|00000500| 6d 64 28 22 74 72 61 6e | 73 70 6f 72 74 20 64 65 |md("tran|sport de|
|00000510| 66 61 75 6c 74 20 6d 61 | 69 6c 20 70 6f 70 22 29 |fault ma|il pop")|
|00000520| 0d 01 f4 42 f2 6e 65 77 | 73 62 61 73 65 5f 63 6d |...B.new|sbase_cm|
|00000530| 64 28 22 74 72 61 6e 73 | 70 6f 72 74 20 67 61 74 |d("trans|port gat|
|00000540| 65 77 61 79 20 6d 61 69 | 6c 20 70 6f 70 20 22 2b |eway mai|l pop "+|
|00000550| 6e 65 74 5f 73 6d 74 70 | 5f 67 61 74 65 77 61 79 |net_smtp|_gateway|
|00000560| 24 29 0d 01 fe 06 3d 31 | 0d ff                   |$)....=1|..      |
+--------+-------------------------+-------------------------+--------+--------+